Міністерство освіти і науки України
Національний університет “Львівська Політехніка”
кафедра САПР
Звіт
до лабораторної роботи № 2
по темі: “ Афінні перетворення та анімація засобами мови Turbo Pascal версії 7.0”
з курсу “ Геометричне моделювання у конструюванні інженерних об’єктів і систем”
1. МЕТА РОБОТИ
Ознайомитись із законами руху геометричних об(єктів на площині та у просторі. Оволодіти математичною мовою опису динаміки та візуалізації на основі закономірностей геометричних перетворень. Набути практичних навиків розробки графічних процедур у середовищі Turbo Pascal в графічному режимі.
2. КОРОТКІ ТЕОРЕТИЧНІ ВІДОМОСТІ.
Елементарні афінні перетворення:
перенос;
масштабуваня;
зсув;
поворот (обертання);
Процедура setcolor(<колір>), де <колір> – змінна типу word, яка задає колір. У модулі Graph є такі константи для задання кольору:
Black=0; {чорний}
Blue=1; {синій}
Green=2; {зелений}
Gray=3; {голубий}
Red=4; {червоний}
Magenta=5; {фіолетовий}
Brown=6; {коричневий}
LightGrey=7; {світло-сірий}
DarkGrey=8; {темно-сірий}
LightBlue=9; {яскраво-синій}
LightGreen=10; {яскраво-зелений}
LightCyan=11; {яскраво-голубий}
LightRed=12; {рожевий}
LightMagenta=13; {малиновий}
Yellow=14; {жовтий}
White=15; {білий}
MoveTo(x,y) — встановлює невидимий графічний курсор у точку із координатами (x,y).
LineTo(x,y) — проводить лінію із точки, в яку встановлено невидимий графічний курсор у точку із координатами (x,y).
SetFillStyle(<штриховка>,<колір>) — встановлює стиль (тип і колір) штриховки.
FloodFill(x,y,<колір контура>) — заштриховує замкнутий контур, x,y– координати точки всередині замкнутого контура, <колір контура> — колір лінії, яка формує замкнутий контур.
Rectangle(x1,y1,x2,y2) — малює прямокутник за координатами точок відрізка – головної діагоналі.
InitGraph(<драйвер>,<режим>,’<шлях до файлу *.BGI відповідного драйвера>’). Драйвери, наприклад: EGA, VGA, IBM8514 …, для кожного із яких існує свій відповідний номер, наприклад для VGA – 9, який потрібно ввести на місце першого параметра процедури ініціалізації графічного режиму InitGraph.
Лабораторне завдання.
Ознайомитись із графічними командами мови Turbo Pascal.
Створити алгоритм розв(язку індивідуального завдання.
Скласти програму на мові Паскаль, набрати у текстовому редакторі інтегрованого середовища.
Записати створену програму на диск.
Запустити на виконання програму.
Отримати результати виконання програми згідно індивідуального завдання.
Здійснити аналіз результатів та сформулювати висновки по роботі.
Оформити звіт про роботу.
Варіант індивідуального завдання №3.
Написати імітаційну програму із застосуванням афінних перетворень, яка дозволяє в автоматичному та при ручному керуванні створювати динамічно змінну візуалізацію, при якій моделюється процес випару суміші трьох рідин із різною температурою кипіння.
ТЕКСТ ПРОГРАМИ
Program lab2_gr;
Uses Crt, Graph;
Type coord=record
x,y:integer
end;
zv=^pointer;
pointer=record
cord:coord;
col:word;
prev:zv;
next:zv
end;
Label l1;
Var driver,mode,maxX,maxY,i,x,y,k,la2,la3:integer;
cords:array[1..10] of coord;
ozn1,ozn2,ozn3,choise:byte;
vbaz,vcur,vlast:zv;
colbuf,kol:word;
ch:char;
str:string;
Procedure setcoords;
Begin
cords[1].x:=0; cords[1].y:=200;
cords[2].x:=100; cords[2].y:=190;
cords[3].x:=150; cords[3].y:=205;
cords[4].x:=220; cords[4].y:=195;
cords[5].x:=300; cords[5].y:=180;
cords[6].x:=410; cords[6].y:=195;
cords[7].x:=550; cords[7].y:=205;
cords[8].x:=580; cords[8].y:=220;
cords[9].x:=600; cords[9].y:=170;
cords[10].x:=639; cords[10].y:=200;
End;
Procedure fon;
Var ifon:integer;
Begin
setcolor(colbuf);
if ozn1<>0 then
begin
moveto(0,250);
for ifon:=1 to 10 do lineto(cords[ifon].x,cords[ifon].y);
...
